WRANGLERS

Diamonds

Sort

Photo by Edgar Soto on Unsplash

Photo by Edgar Soto on Unsplash

Diamonds

The focus now is on citizen activism, where citizens express themselves in a peaceful and nonviolent way….
— Promise Mkwananzi


Load data

df<-read.csv('./archetypes/diamonds.csv', header = TRUE, stringsAsFactors = FALSE)
set.seed(123)
index <- sample(1:nrow(df), 100)
df_1<-df[index,]%>%
  select(carat, cut, color,clarity,price)
row.names(df_1)<-NULL
carat cut color clarity price
0.73 Ideal I VS1 2397
0.70 Ideal G VS1 3300
0.31 Ideal D VS1 713
0.31 Ideal H VVS1 707
0.31 Ideal E IF 987
0.83 Good E SI1 3250
0.51 Very Good D VS2 1668
0.70 Good H SI1 1771
0.40 Ideal E VS1 1053
1.10 Very Good I SI1 4640
0.52 Premium E VVS2 2467
0.32 Ideal D VS2 758
1.00 Very Good D SI1 5755
1.01 Good F VS2 6097
2.01 Very Good I VS2 17422
1.60 Premium F SI1 12343
1.01 Premium I SI1 4525
0.31 Ideal D VS2 734
0.38 Very Good F VS2 685
1.03 Premium I SI1 4326
1.31 Ideal I SI2 5546
0.70 Very Good F SI1 2100
2.01 Very Good H SI2 12829
0.80 Very Good G VVS2 4002
1.20 Premium E SI1 7274
0.31 Good E SI1 698
0.82 Very Good F SI2 2643
0.41 Premium H SI1 683
0.33 Ideal E IF 1207
0.33 Ideal I SI2 403
1.30 Premium H VS2 5824
0.35 Ideal G IF 1116
1.25 Premium J SI1 4200
0.62 Ideal F SI2 1441
0.30 Ideal G VS2 545
0.40 Ideal E SI1 673
0.90 Ideal H VS1 5013
0.40 Ideal F VVS2 1351
0.50 Very Good E SI1 1374
1.09 Premium H SI1 5219
0.91 Ideal G SI2 3985
0.34 Ideal E VS2 829
1.66 Premium J VVS2 9882
0.42 Premium F VS1 1103
1.17 Good D SI2 4639
1.27 Very Good D SI1 8312
0.90 Premium G VS1 4579
1.55 Premium D VS2 16137
1.50 Good D SI2 9173
1.06 Premium D SI1 5817
0.90 Very Good F SI1 3950
0.42 Ideal F VVS1 1656
0.32 Ideal H VS2 534
0.38 Ideal D VVS1 1400
0.78 Ideal F SI2 2386
0.30 Very Good F VVS1 682
2.01 Premium G SI2 16733
0.34 Ideal G VS2 596
1.31 Premium H SI2 6089
0.90 Very Good E SI1 3748
0.33 Ideal E SI1 532
0.31 Ideal G VS1 802
1.22 Ideal F SI1 6456
2.15 Ideal I SI2 14388
1.27 Premium J VVS1 5761
1.06 Very Good H VS2 5783
2.00 Premium H SI1 11200
2.01 Very Good J VS1 12845
0.23 Good F VVS1 472
1.16 Ideal H SI1 5852
1.01 Very Good G VVS2 6975
0.34 Very Good E SI1 596
0.55 Ideal G VVS1 2042
0.43 Very Good G VVS1 1143
0.50 Ideal J VS2 875
0.30 Ideal G VVS1 1013
1.52 Fair H SI1 8818
1.22 Premium G SI2 6969
0.30 Ideal E VVS2 766
0.50 Good J VS2 965
1.26 Ideal G VS1 9243
0.41 Ideal E VS1 1153
0.31 Very Good D VS2 734
0.50 Premium H VS1 1395
0.39 Ideal F VVS2 988
0.31 Ideal F VVS1 840
1.30 Very Good H VS1 7747
1.05 Premium G SI1 4974
1.06 Ideal H VS2 6619
0.51 Very Good F VS2 1569
0.52 Ideal G VS1 1721
1.52 Very Good F VS1 16670
0.31 Premium G SI2 523
1.33 Ideal F VVS2 15031
0.41 Very Good E SI1 953
0.40 Ideal J VVS2 662
0.88 Very Good H VS2 3472
0.32 Very Good F VS2 645
0.70 Ideal H SI1 2548
0.53 Ideal H VS2 1412

Sort a dataset from a given reference with set order

Here is a reference list for “clarity” based on the modern GIA grading system .

## [1] "IF"   "VVS1" "VVS2" "VS1"  "VS2"  "SI1"  "SI2"  "I1"

Sort the order following the reference list.

df_2<-df_1%>% arrange(factor(clarity, levels = reference))
carat cut color clarity price
0.31 Ideal E IF 987
0.33 Ideal E IF 1207
0.35 Ideal G IF 1116
0.31 Ideal H VVS1 707
0.42 Ideal F VVS1 1656
0.38 Ideal D VVS1 1400
0.30 Very Good F VVS1 682
1.27 Premium J VVS1 5761
0.23 Good F VVS1 472
0.55 Ideal G VVS1 2042
0.43 Very Good G VVS1 1143
0.30 Ideal G VVS1 1013
0.31 Ideal F VVS1 840
0.52 Premium E VVS2 2467
0.80 Very Good G VVS2 4002
0.40 Ideal F VVS2 1351
1.66 Premium J VVS2 9882
1.01 Very Good G VVS2 6975
0.30 Ideal E VVS2 766
0.39 Ideal F VVS2 988
1.33 Ideal F VVS2 15031
0.40 Ideal J VVS2 662
0.73 Ideal I VS1 2397
0.70 Ideal G VS1 3300
0.31 Ideal D VS1 713
0.40 Ideal E VS1 1053
0.90 Ideal H VS1 5013
0.42 Premium F VS1 1103
0.90 Premium G VS1 4579
0.31 Ideal G VS1 802
2.01 Very Good J VS1 12845
1.26 Ideal G VS1 9243
0.41 Ideal E VS1 1153
0.50 Premium H VS1 1395
1.30 Very Good H VS1 7747
0.52 Ideal G VS1 1721
1.52 Very Good F VS1 16670
0.51 Very Good D VS2 1668
0.32 Ideal D VS2 758
1.01 Good F VS2 6097
2.01 Very Good I VS2 17422
0.31 Ideal D VS2 734
0.38 Very Good F VS2 685
1.30 Premium H VS2 5824
0.30 Ideal G VS2 545
0.34 Ideal E VS2 829
1.55 Premium D VS2 16137
0.32 Ideal H VS2 534
0.34 Ideal G VS2 596
1.06 Very Good H VS2 5783
0.50 Ideal J VS2 875
0.50 Good J VS2 965
0.31 Very Good D VS2 734
1.06 Ideal H VS2 6619
0.51 Very Good F VS2 1569
0.88 Very Good H VS2 3472
0.32 Very Good F VS2 645
0.53 Ideal H VS2 1412
0.83 Good E SI1 3250
0.70 Good H SI1 1771
1.10 Very Good I SI1 4640
1.00 Very Good D SI1 5755
1.60 Premium F SI1 12343
1.01 Premium I SI1 4525
1.03 Premium I SI1 4326
0.70 Very Good F SI1 2100
1.20 Premium E SI1 7274
0.31 Good E SI1 698
0.41 Premium H SI1 683
1.25 Premium J SI1 4200
0.40 Ideal E SI1 673
0.50 Very Good E SI1 1374
1.09 Premium H SI1 5219
1.27 Very Good D SI1 8312
1.06 Premium D SI1 5817
0.90 Very Good F SI1 3950
0.90 Very Good E SI1 3748
0.33 Ideal E SI1 532
1.22 Ideal F SI1 6456
2.00 Premium H SI1 11200
1.16 Ideal H SI1 5852
0.34 Very Good E SI1 596
1.52 Fair H SI1 8818
1.05 Premium G SI1 4974
0.41 Very Good E SI1 953
0.70 Ideal H SI1 2548
1.31 Ideal I SI2 5546
2.01 Very Good H SI2 12829
0.82 Very Good F SI2 2643
0.33 Ideal I SI2 403
0.62 Ideal F SI2 1441
0.91 Ideal G SI2 3985
1.17 Good D SI2 4639
1.50 Good D SI2 9173
0.78 Ideal F SI2 2386
2.01 Premium G SI2 16733
1.31 Premium H SI2 6089
2.15 Ideal I SI2 14388
1.22 Premium G SI2 6969
0.31 Premium G SI2 523

Sort a dataset by column ascending

Sort a number column “carat”.

df_3<-df_1%>%arrange(carat)
carat cut color clarity price
0.23 Good F VVS1 472
0.30 Ideal G VS2 545
0.30 Very Good F VVS1 682
0.30 Ideal G VVS1 1013
0.30 Ideal E VVS2 766
0.31 Ideal D VS1 713
0.31 Ideal H VVS1 707
0.31 Ideal E IF 987
0.31 Ideal D VS2 734
0.31 Good E SI1 698
0.31 Ideal G VS1 802
0.31 Very Good D VS2 734
0.31 Ideal F VVS1 840
0.31 Premium G SI2 523
0.32 Ideal D VS2 758
0.32 Ideal H VS2 534
0.32 Very Good F VS2 645
0.33 Ideal E IF 1207
0.33 Ideal I SI2 403
0.33 Ideal E SI1 532
0.34 Ideal E VS2 829
0.34 Ideal G VS2 596
0.34 Very Good E SI1 596
0.35 Ideal G IF 1116
0.38 Very Good F VS2 685
0.38 Ideal D VVS1 1400
0.39 Ideal F VVS2 988
0.40 Ideal E VS1 1053
0.40 Ideal E SI1 673
0.40 Ideal F VVS2 1351
0.40 Ideal J VVS2 662
0.41 Premium H SI1 683
0.41 Ideal E VS1 1153
0.41 Very Good E SI1 953
0.42 Premium F VS1 1103
0.42 Ideal F VVS1 1656
0.43 Very Good G VVS1 1143
0.50 Very Good E SI1 1374
0.50 Ideal J VS2 875
0.50 Good J VS2 965
0.50 Premium H VS1 1395
0.51 Very Good D VS2 1668
0.51 Very Good F VS2 1569
0.52 Premium E VVS2 2467
0.52 Ideal G VS1 1721
0.53 Ideal H VS2 1412
0.55 Ideal G VVS1 2042
0.62 Ideal F SI2 1441
0.70 Ideal G VS1 3300
0.70 Good H SI1 1771
0.70 Very Good F SI1 2100
0.70 Ideal H SI1 2548
0.73 Ideal I VS1 2397
0.78 Ideal F SI2 2386
0.80 Very Good G VVS2 4002
0.82 Very Good F SI2 2643
0.83 Good E SI1 3250
0.88 Very Good H VS2 3472
0.90 Ideal H VS1 5013
0.90 Premium G VS1 4579
0.90 Very Good F SI1 3950
0.90 Very Good E SI1 3748
0.91 Ideal G SI2 3985
1.00 Very Good D SI1 5755
1.01 Good F VS2 6097
1.01 Premium I SI1 4525
1.01 Very Good G VVS2 6975
1.03 Premium I SI1 4326
1.05 Premium G SI1 4974
1.06 Premium D SI1 5817
1.06 Very Good H VS2 5783
1.06 Ideal H VS2 6619
1.09 Premium H SI1 5219
1.10 Very Good I SI1 4640
1.16 Ideal H SI1 5852
1.17 Good D SI2 4639
1.20 Premium E SI1 7274
1.22 Ideal F SI1 6456
1.22 Premium G SI2 6969
1.25 Premium J SI1 4200
1.26 Ideal G VS1 9243
1.27 Very Good D SI1 8312
1.27 Premium J VVS1 5761
1.30 Premium H VS2 5824
1.30 Very Good H VS1 7747
1.31 Ideal I SI2 5546
1.31 Premium H SI2 6089
1.33 Ideal F VVS2 15031
1.50 Good D SI2 9173
1.52 Fair H SI1 8818
1.52 Very Good F VS1 16670
1.55 Premium D VS2 16137
1.60 Premium F SI1 12343
1.66 Premium J VVS2 9882
2.00 Premium H SI1 11200
2.01 Very Good I VS2 17422
2.01 Very Good H SI2 12829
2.01 Premium G SI2 16733
2.01 Very Good J VS1 12845
2.15 Ideal I SI2 14388

Sort a string column “cut”.

df_4 <- df_1 %>% arrange(cut)
carat cut color clarity price
1.52 Fair H SI1 8818
0.83 Good E SI1 3250
0.70 Good H SI1 1771
1.01 Good F VS2 6097
0.31 Good E SI1 698
1.17 Good D SI2 4639
1.50 Good D SI2 9173
0.23 Good F VVS1 472
0.50 Good J VS2 965
0.73 Ideal I VS1 2397
0.70 Ideal G VS1 3300
0.31 Ideal D VS1 713
0.31 Ideal H VVS1 707
0.31 Ideal E IF 987
0.40 Ideal E VS1 1053
0.32 Ideal D VS2 758
0.31 Ideal D VS2 734
1.31 Ideal I SI2 5546
0.33 Ideal E IF 1207
0.33 Ideal I SI2 403
0.35 Ideal G IF 1116
0.62 Ideal F SI2 1441
0.30 Ideal G VS2 545
0.40 Ideal E SI1 673
0.90 Ideal H VS1 5013
0.40 Ideal F VVS2 1351
0.91 Ideal G SI2 3985
0.34 Ideal E VS2 829
0.42 Ideal F VVS1 1656
0.32 Ideal H VS2 534
0.38 Ideal D VVS1 1400
0.78 Ideal F SI2 2386
0.34 Ideal G VS2 596
0.33 Ideal E SI1 532
0.31 Ideal G VS1 802
1.22 Ideal F SI1 6456
2.15 Ideal I SI2 14388
1.16 Ideal H SI1 5852
0.55 Ideal G VVS1 2042
0.50 Ideal J VS2 875
0.30 Ideal G VVS1 1013
0.30 Ideal E VVS2 766
1.26 Ideal G VS1 9243
0.41 Ideal E VS1 1153
0.39 Ideal F VVS2 988
0.31 Ideal F VVS1 840
1.06 Ideal H VS2 6619
0.52 Ideal G VS1 1721
1.33 Ideal F VVS2 15031
0.40 Ideal J VVS2 662
0.70 Ideal H SI1 2548
0.53 Ideal H VS2 1412
0.52 Premium E VVS2 2467
1.60 Premium F SI1 12343
1.01 Premium I SI1 4525
1.03 Premium I SI1 4326
1.20 Premium E SI1 7274
0.41 Premium H SI1 683
1.30 Premium H VS2 5824
1.25 Premium J SI1 4200
1.09 Premium H SI1 5219
1.66 Premium J VVS2 9882
0.42 Premium F VS1 1103
0.90 Premium G VS1 4579
1.55 Premium D VS2 16137
1.06 Premium D SI1 5817
2.01 Premium G SI2 16733
1.31 Premium H SI2 6089
1.27 Premium J VVS1 5761
2.00 Premium H SI1 11200
1.22 Premium G SI2 6969
0.50 Premium H VS1 1395
1.05 Premium G SI1 4974
0.31 Premium G SI2 523
0.51 Very Good D VS2 1668
1.10 Very Good I SI1 4640
1.00 Very Good D SI1 5755
2.01 Very Good I VS2 17422
0.38 Very Good F VS2 685
0.70 Very Good F SI1 2100
2.01 Very Good H SI2 12829
0.80 Very Good G VVS2 4002
0.82 Very Good F SI2 2643
0.50 Very Good E SI1 1374
1.27 Very Good D SI1 8312
0.90 Very Good F SI1 3950
0.30 Very Good F VVS1 682
0.90 Very Good E SI1 3748
1.06 Very Good H VS2 5783
2.01 Very Good J VS1 12845
1.01 Very Good G VVS2 6975
0.34 Very Good E SI1 596
0.43 Very Good G VVS1 1143
0.31 Very Good D VS2 734
1.30 Very Good H VS1 7747
0.51 Very Good F VS2 1569
1.52 Very Good F VS1 16670
0.41 Very Good E SI1 953
0.88 Very Good H VS2 3472
0.32 Very Good F VS2 645

Sort a dataset by column descending

Sort a number column “price”.

df_5<-df_1%>%arrange(desc(price))
carat cut color clarity price
2.01 Very Good I VS2 17422
2.01 Premium G SI2 16733
1.52 Very Good F VS1 16670
1.55 Premium D VS2 16137
1.33 Ideal F VVS2 15031
2.15 Ideal I SI2 14388
2.01 Very Good J VS1 12845
2.01 Very Good H SI2 12829
1.60 Premium F SI1 12343
2.00 Premium H SI1 11200
1.66 Premium J VVS2 9882
1.26 Ideal G VS1 9243
1.50 Good D SI2 9173
1.52 Fair H SI1 8818
1.27 Very Good D SI1 8312
1.30 Very Good H VS1 7747
1.20 Premium E SI1 7274
1.01 Very Good G VVS2 6975
1.22 Premium G SI2 6969
1.06 Ideal H VS2 6619
1.22 Ideal F SI1 6456
1.01 Good F VS2 6097
1.31 Premium H SI2 6089
1.16 Ideal H SI1 5852
1.30 Premium H VS2 5824
1.06 Premium D SI1 5817
1.06 Very Good H VS2 5783
1.27 Premium J VVS1 5761
1.00 Very Good D SI1 5755
1.31 Ideal I SI2 5546
1.09 Premium H SI1 5219
0.90 Ideal H VS1 5013
1.05 Premium G SI1 4974
1.10 Very Good I SI1 4640
1.17 Good D SI2 4639
0.90 Premium G VS1 4579
1.01 Premium I SI1 4525
1.03 Premium I SI1 4326
1.25 Premium J SI1 4200
0.80 Very Good G VVS2 4002
0.91 Ideal G SI2 3985
0.90 Very Good F SI1 3950
0.90 Very Good E SI1 3748
0.88 Very Good H VS2 3472
0.70 Ideal G VS1 3300
0.83 Good E SI1 3250
0.82 Very Good F SI2 2643
0.70 Ideal H SI1 2548
0.52 Premium E VVS2 2467
0.73 Ideal I VS1 2397
0.78 Ideal F SI2 2386
0.70 Very Good F SI1 2100
0.55 Ideal G VVS1 2042
0.70 Good H SI1 1771
0.52 Ideal G VS1 1721
0.51 Very Good D VS2 1668
0.42 Ideal F VVS1 1656
0.51 Very Good F VS2 1569
0.62 Ideal F SI2 1441
0.53 Ideal H VS2 1412
0.38 Ideal D VVS1 1400
0.50 Premium H VS1 1395
0.50 Very Good E SI1 1374
0.40 Ideal F VVS2 1351
0.33 Ideal E IF 1207
0.41 Ideal E VS1 1153
0.43 Very Good G VVS1 1143
0.35 Ideal G IF 1116
0.42 Premium F VS1 1103
0.40 Ideal E VS1 1053
0.30 Ideal G VVS1 1013
0.39 Ideal F VVS2 988
0.31 Ideal E IF 987
0.50 Good J VS2 965
0.41 Very Good E SI1 953
0.50 Ideal J VS2 875
0.31 Ideal F VVS1 840
0.34 Ideal E VS2 829
0.31 Ideal G VS1 802
0.30 Ideal E VVS2 766
0.32 Ideal D VS2 758
0.31 Ideal D VS2 734
0.31 Very Good D VS2 734
0.31 Ideal D VS1 713
0.31 Ideal H VVS1 707
0.31 Good E SI1 698
0.38 Very Good F VS2 685
0.41 Premium H SI1 683
0.30 Very Good F VVS1 682
0.40 Ideal E SI1 673
0.40 Ideal J VVS2 662
0.32 Very Good F VS2 645
0.34 Ideal G VS2 596
0.34 Very Good E SI1 596
0.30 Ideal G VS2 545
0.32 Ideal H VS2 534
0.33 Ideal E SI1 532
0.31 Premium G SI2 523
0.23 Good F VVS1 472
0.33 Ideal I SI2 403

Sort a string column “color”.

df_6<-df_1%>%arrange(desc(color))
carat cut color clarity price
1.25 Premium J SI1 4200
1.66 Premium J VVS2 9882
1.27 Premium J VVS1 5761
2.01 Very Good J VS1 12845
0.50 Ideal J VS2 875
0.50 Good J VS2 965
0.40 Ideal J VVS2 662
0.73 Ideal I VS1 2397
1.10 Very Good I SI1 4640
2.01 Very Good I VS2 17422
1.01 Premium I SI1 4525
1.03 Premium I SI1 4326
1.31 Ideal I SI2 5546
0.33 Ideal I SI2 403
2.15 Ideal I SI2 14388
0.31 Ideal H VVS1 707
0.70 Good H SI1 1771
2.01 Very Good H SI2 12829
0.41 Premium H SI1 683
1.30 Premium H VS2 5824
0.90 Ideal H VS1 5013
1.09 Premium H SI1 5219
0.32 Ideal H VS2 534
1.31 Premium H SI2 6089
1.06 Very Good H VS2 5783
2.00 Premium H SI1 11200
1.16 Ideal H SI1 5852
1.52 Fair H SI1 8818
0.50 Premium H VS1 1395
1.30 Very Good H VS1 7747
1.06 Ideal H VS2 6619
0.88 Very Good H VS2 3472
0.70 Ideal H SI1 2548
0.53 Ideal H VS2 1412
0.70 Ideal G VS1 3300
0.80 Very Good G VVS2 4002
0.35 Ideal G IF 1116
0.30 Ideal G VS2 545
0.91 Ideal G SI2 3985
0.90 Premium G VS1 4579
2.01 Premium G SI2 16733
0.34 Ideal G VS2 596
0.31 Ideal G VS1 802
1.01 Very Good G VVS2 6975
0.55 Ideal G VVS1 2042
0.43 Very Good G VVS1 1143
0.30 Ideal G VVS1 1013
1.22 Premium G SI2 6969
1.26 Ideal G VS1 9243
1.05 Premium G SI1 4974
0.52 Ideal G VS1 1721
0.31 Premium G SI2 523
1.01 Good F VS2 6097
1.60 Premium F SI1 12343
0.38 Very Good F VS2 685
0.70 Very Good F SI1 2100
0.82 Very Good F SI2 2643
0.62 Ideal F SI2 1441
0.40 Ideal F VVS2 1351
0.42 Premium F VS1 1103
0.90 Very Good F SI1 3950
0.42 Ideal F VVS1 1656
0.78 Ideal F SI2 2386
0.30 Very Good F VVS1 682
1.22 Ideal F SI1 6456
0.23 Good F VVS1 472
0.39 Ideal F VVS2 988
0.31 Ideal F VVS1 840
0.51 Very Good F VS2 1569
1.52 Very Good F VS1 16670
1.33 Ideal F VVS2 15031
0.32 Very Good F VS2 645
0.31 Ideal E IF 987
0.83 Good E SI1 3250
0.40 Ideal E VS1 1053
0.52 Premium E VVS2 2467
1.20 Premium E SI1 7274
0.31 Good E SI1 698
0.33 Ideal E IF 1207
0.40 Ideal E SI1 673
0.50 Very Good E SI1 1374
0.34 Ideal E VS2 829
0.90 Very Good E SI1 3748
0.33 Ideal E SI1 532
0.34 Very Good E SI1 596
0.30 Ideal E VVS2 766
0.41 Ideal E VS1 1153
0.41 Very Good E SI1 953
0.31 Ideal D VS1 713
0.51 Very Good D VS2 1668
0.32 Ideal D VS2 758
1.00 Very Good D SI1 5755
0.31 Ideal D VS2 734
1.17 Good D SI2 4639
1.27 Very Good D SI1 8312
1.55 Premium D VS2 16137
1.50 Good D SI2 9173
1.06 Premium D SI1 5817
0.38 Ideal D VVS1 1400
0.31 Very Good D VS2 734

Sort by several columns

Let’s sort by ascending “price” and descending “carat”.

df_7<-df_1%>%arrange(price,desc(carat))
carat cut color clarity price
0.33 Ideal I SI2 403
0.23 Good F VVS1 472
0.31 Premium G SI2 523
0.33 Ideal E SI1 532
0.32 Ideal H VS2 534
0.30 Ideal G VS2 545
0.34 Ideal G VS2 596
0.34 Very Good E SI1 596
0.32 Very Good F VS2 645
0.40 Ideal J VVS2 662
0.40 Ideal E SI1 673
0.30 Very Good F VVS1 682
0.41 Premium H SI1 683
0.38 Very Good F VS2 685
0.31 Good E SI1 698
0.31 Ideal H VVS1 707
0.31 Ideal D VS1 713
0.31 Ideal D VS2 734
0.31 Very Good D VS2 734
0.32 Ideal D VS2 758
0.30 Ideal E VVS2 766
0.31 Ideal G VS1 802
0.34 Ideal E VS2 829
0.31 Ideal F VVS1 840
0.50 Ideal J VS2 875
0.41 Very Good E SI1 953
0.50 Good J VS2 965
0.31 Ideal E IF 987
0.39 Ideal F VVS2 988
0.30 Ideal G VVS1 1013
0.40 Ideal E VS1 1053
0.42 Premium F VS1 1103
0.35 Ideal G IF 1116
0.43 Very Good G VVS1 1143
0.41 Ideal E VS1 1153
0.33 Ideal E IF 1207
0.40 Ideal F VVS2 1351
0.50 Very Good E SI1 1374
0.50 Premium H VS1 1395
0.38 Ideal D VVS1 1400
0.53 Ideal H VS2 1412
0.62 Ideal F SI2 1441
0.51 Very Good F VS2 1569
0.42 Ideal F VVS1 1656
0.51 Very Good D VS2 1668
0.52 Ideal G VS1 1721
0.70 Good H SI1 1771
0.55 Ideal G VVS1 2042
0.70 Very Good F SI1 2100
0.78 Ideal F SI2 2386
0.73 Ideal I VS1 2397
0.52 Premium E VVS2 2467
0.70 Ideal H SI1 2548
0.82 Very Good F SI2 2643
0.83 Good E SI1 3250
0.70 Ideal G VS1 3300
0.88 Very Good H VS2 3472
0.90 Very Good E SI1 3748
0.90 Very Good F SI1 3950
0.91 Ideal G SI2 3985
0.80 Very Good G VVS2 4002
1.25 Premium J SI1 4200
1.03 Premium I SI1 4326
1.01 Premium I SI1 4525
0.90 Premium G VS1 4579
1.17 Good D SI2 4639
1.10 Very Good I SI1 4640
1.05 Premium G SI1 4974
0.90 Ideal H VS1 5013
1.09 Premium H SI1 5219
1.31 Ideal I SI2 5546
1.00 Very Good D SI1 5755
1.27 Premium J VVS1 5761
1.06 Very Good H VS2 5783
1.06 Premium D SI1 5817
1.30 Premium H VS2 5824
1.16 Ideal H SI1 5852
1.31 Premium H SI2 6089
1.01 Good F VS2 6097
1.22 Ideal F SI1 6456
1.06 Ideal H VS2 6619
1.22 Premium G SI2 6969
1.01 Very Good G VVS2 6975
1.20 Premium E SI1 7274
1.30 Very Good H VS1 7747
1.27 Very Good D SI1 8312
1.52 Fair H SI1 8818
1.50 Good D SI2 9173
1.26 Ideal G VS1 9243
1.66 Premium J VVS2 9882
2.00 Premium H SI1 11200
1.60 Premium F SI1 12343
2.01 Very Good H SI2 12829
2.01 Very Good J VS1 12845
2.15 Ideal I SI2 14388
1.33 Ideal F VVS2 15031
1.55 Premium D VS2 16137
1.52 Very Good F VS1 16670
2.01 Premium G SI2 16733
2.01 Very Good I VS2 17422
v1 <- ggplot( data=df, aes(carat, price, colour=clarity)) +
    geom_point(alpha = 0.5, size = .75, position="jitter") +
    scale_colour_brewer(
        guide = guide_legend(title = NULL, reverse=T,
            override.aes = list(alpha = 1))) +
    theme_minimal()


girafe(ggobj = v1, width_svg = 1280/72, height_svg = 720/72, options =
list(opts_sizing(rescale = TRUE, width = 1.0)))

References

The citations and data sources used for this case

The data source was built in R. Use function data() in the console to view available datasets.

## [1] Wikipedia. _Diamond clarity_. Wikipedia, Apr. 2021. <URL:
## https://en.wikipedia.org/wiki/Diamond_clarity> (visited on 06/05/2021).